home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8601.d64 / vergl.von prg. (.txt) < prev   
Commodore BASIC  |  1995-03-30  |  2KB  |  63 lines
  1. 1 REM      VERGL.VON PRG.
  2. 10 :
  3. 20 REM *************************
  4. 30 REM *                       *
  5. 40 REM *  GERHARD REUL         *
  6. 50 REM *  8591 TROESTAU        *
  7. 60 REM *  TEL. 09232/1678      *
  8. 70 REM *                       *
  9. 80 REM *************************
  10. 90 :
  11. 100 DIM X(256),Y(256):Z1$="......"
  12. 110 F1$="<> ZEILEN-LAENGE":F2$="ZEICHEN-FEHLER":F3$="<> ZEILEN-NR.!!!"
  13. 120 GOTO450
  14. 130 OPEN15,8,15,"I"
  15. 140 OPEN2,8,2,B1$+",P,R":F=1:GOSUB590
  16. 150 OPEN3,8,3,B2$+",P,R":F=2:GOSUB590
  17. 160 GET#2,X$,X$
  18. 170 GET#3,X$,X$
  19. 180 REM======= LADEN PRG 1 =============
  20. 190 GET#2,X$:IFX$=""THENX$=CHR$(0)
  21. 200 I=I+1:X(I)=ASC(X$)
  22. 210 REM (ZU ZEILE 220)  ZEILEN-NR. BESTIMMEN
  23. 220 IFI=4THENZ=X(4)*256+X(3):Z$=RIGHT$(Z1$+STR$(Z),7):PRINT"     ZEILE"Z$"  OK[145]"
  24. 230 IFX(I)=0THEN GOTO260
  25. 240 GOTO190
  26. 250 REM  ZEILEN-ODER PRG.-ENDE BESTIMMEN
  27. 260 IFI=2THEN:IFX(1)=0ANDX(2)=0THENCLOSE2:CLOSE3:CLOSE15:GOTO550:REM  PRG.-ENDE
  28. 270 IFI<5THENGOTO190
  29. 280 II=I:I=0
  30. 290 REM======= LADEN PRG 2 =============
  31. 300 GET#3,Y$:IFY$=""THENY$=CHR$(0)
  32. 310 J=J+1:Y(J)=ASC(Y$)
  33. 320 IFY(J)=0THEN GOTO340
  34. 330 GOTO300
  35. 340 IFJ<5THENGOTO300
  36. 350 JJ=J:J=0
  37. 360 REM====== VERGLEICHEN ==============
  38. 370 IFX(3)<>Y(3)ORX(4)<>Y(4)THEN:F$=F3$:GOSUB420:GOTO430
  39. 380 IFII<>JJTHEN:F$=F1$:GOSUB420:GOTO190
  40. 390 FORI=5TOII
  41. 400 IFX(I)<>Y(I)THEN:F$=F2$:GOSUB420:I=II
  42. 410 NEXT:I=0:GOTO190
  43. 420 PRINT""F$:RETURN
  44. 430 PRINT"         BITTE UEBERPRUEFEN !    [146]":CLOSE2:CLOSE3:CLOSE15:GOTO560
  45. 440 REM========= MENUE =================
  46. 450 PRINT"[147]       VERGLEICHEN VON PROGRAMMEN [146]"
  47. 460 PRINT"  ES KOENNEN ZWEI BASIC-PROGRAMME,"
  48. 470 PRINT"  DIE SICH AUF EINER DISKETTE BEFINDEN,"
  49. 480 PRINT"  MITEINANDER VERGLICHEN WERDEN."
  50. 490 INPUT"   PROGRAMM-NAME 1 ";B1$:PRINT:PRINT
  51. 500 INPUT"   PROGRAMM-NAME 2 ";B2$
  52. 510 PRINT"[147]      VERGLEICHEN VON PROGRAMMEN [146]"
  53. 520 PRINT"  PROGRAMM 1:         PROGRAMM 2:"
  54. 530 PRINT"  "B1$"                "B2$"":GOTO130
  55. 540 REM========== WARTEN ===============
  56. 550 PRINT"              ENDE "
  57. 560 GETA$:IFA$=""THEN560
  58. 570 RUN
  59. 580 REM====== FEHLER-KANAL =============
  60. 590 INPUT#15,A,A$:IFA=0THENRETURN
  61. 600 PRINT"   "F"[157]. ";A$:CLOSE2:CLOSE3:CLOSE15
  62. 610 GOTO560
  63.